Sub AddChartToPowerPoint()
    Dim PowerPointApp As Object
    Dim PowerPointPres As Object
    Dim PowerPointSlide As Object
    Dim ChartObject As ChartObject
    Dim ChartRange As Range
    Dim PowerPointFilePath As String
    
    ' PowerPoint 파일 경로 설정
    PowerPointFilePath = ThisWorkbook.Path & "\보고서.pptx"
    
    ' PowerPoint 애플리케이션 생성
    On Error Resume Next
    Set PowerPointApp = GetObject(, "PowerPoint.Application")
    On Error GoTo 0
    
    If PowerPointApp Is Nothing Then
        Set PowerPointApp = CreateObject("PowerPoint.Application")
    End If
    
    ' PowerPoint 파일 열기
    Set PowerPointPres = PowerPointApp.Presentations.Open(PowerPointFilePath)
    
    ' 3번째 슬라이드에 차트 추가
    Set PowerPointSlide = PowerPointPres.Slides(3)
    
    ' Sheet1에서 차트를 복사
    Set ChartObject = Sheet1.ChartObjects("Chart1")
    ChartObject.Chart.ChartArea.Copy
    
    ' PowerPoint 슬라이드에 차트 붙여넣기
    PowerPointSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select
    
    ' 차트 위치 및 크기 조정
    Set ChartRange = ChartObject.TopLeftCell
    With PowerPointApp.ActiveWindow.Selection.ShapeRange
        .Left = ChartRange.Left * 72 ' Excel의 포인트를 PowerPoint의 포인트로 변환
        .Top = ChartRange.Top * 72 ' Excel의 포인트를 PowerPoint의 포인트로 변환
        .Width = ChartObject.Width * 72 ' Excel의 포인트를 PowerPoint의 포인트로 변환
        .Height = ChartObject.Height * 72 ' Excel의 포인트를 PowerPoint의 포인트로 변환
    End With
    
    ' 차트 복사한 것 삭제
    ChartObject.Delete
    
    ' PowerPoint 파일 저장 및 닫기
    PowerPointPres.Save
    PowerPointPres.Close
    
    ' 메모리 해제
    Set PowerPointSlide = Nothing
    Set PowerPointPres = Nothing
    Set PowerPointApp = Nothing
End Sub
